SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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AAAAAA DDDDDDDD PPPPPPPP EEEEEEEEEE RRRRRRRR RRRRKRRR 77777777 TTT] 000000 
AAAAAA DDDDDDDD PPPPPPPP EEEEEEEEEE RRRRRRRR RRRRRRRR 77777777 88888 000000 
AA AA 0D DD PP PP EE RR RR RR RR 77 ~=88 88 00 0 
AA AA DD DD PP PP EE RR RR RR RR 77 «+88 88 00 0 
AA AA 0D DD PP PP EE RR RR RR RR 77 «=88 88 00 000 
AB AA DD DD PP PP EE RR RR RR RR 77 «+88 88 00 000 
AA AA DD DD PPPPPPPP EEEEEEEE RRRRRRRR RRRRRRRR 77 888888 00 00 0 
AA AA DD DD PPPPPPPP EEEEEEEE RRRRRRRR RRRRRRRR 77 888888 00 00 0 
AAAAAAAAAA DD DD PP EE RR RR RR RR 77 &8 88 0000 0 

DD DD PP EE RR RR RR RR 77 88 88 0000 0 
AA AA 0D DD PP EE RR RR RR RR 77 88 88 00 0 
AA AA DD DD PP EE RR RR RR RR 77 88 88 00 
A AA DDDDDDDD PP ECEEEEEEEE RR RR RR RR 77 888888 000000 
AB AA DDDDDDDD PP EEEEEEEEEE RR RR RR RR 77 888888 000000 
LL III! SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I! SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIII] SSSSSSSS 
LLLLLLLLLL HII! SSSSSSSS 
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HIST » DETAILED 
EXESUBAERR_INT = UBA ERROR INTERRUPT HANDLER 
ADAPT eR ERROR HANDLERS 

EXE$RH780_INT = ERROR INTERRUPT HANDLER 
READ_REGISTERS = READ ADAPTER REGISTERS 
LOG_ADAPTER = ERROR LOG ADAPTER ERROR 

UNMAP ADAPTER ADDRESSES, REPLACE SCB VECTOR 

MAP ADAPTER ADDRESS, RESTORE SCB VECTORS 
ADAPTER_ISR = Ada ter ower-up interrupt service 
WAIT_TEST = WAIT FOR BIT OR TIMEOUT 
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~SEP=1984 04:06: SYSLOA. SRE SADPERRTBO.MAR: 1 


1 -TITLE ADPERR780 - I/0 ADAPTER ERROR HANDLERS FOR 11/780 
09 F IDENT ‘'V04-000' 
§ 2: d eennsecceseenensesqdnannebeqnsdsnenebeonsauananenenineenonaseenseoenoeninete 
: * 
O60 8 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
4 8 ie ALL RIGHTS RESERVED * 
° ® 
it QO ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres * 
00 1 3;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ottcaae AND WITH THE * 
4 ¢ :* INCLUSION OF THE ABOVE Vgaltg NOTICE. THIS SOFTWARE OR ANY OTHER * 
00 :* COPIES THEREOF oe NOT BE PROVIDED OR OTHERWISE OMADE AVAILABLE TO ANY * 
0000 4 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 2 is TRANSFERRED. * 
: & 
0000 7 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 8 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 3 ‘* CORPORATION. * 
: * 
0000 1 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 94 is 
* 
0000 5 | kde bdenUhdennenenNeheteetianeietsemenaneebtbeenbeenenetéeneeoneonneenes 
0000 Ps 
9000 ¢8 P FACILITY: EXECUTIVE, ERROR HANDLING 
000 0 ; ABSTRACT: HANDLE ea INTERRUPTS GENERATED BY I/0 ADAPTERS (UBA AND MBA) 
444 1¢€ ON 11/780. 
it 5 ; ENVIRONMENT: RUNS ON INTERRUPT STACK AT ADAPTER IPL. 
000 2 ~~ 
7 
8 
9 
0 
4 
5 
6 
: 
0 
4 
5 
6 
? 


PUPP BB ES ES BB EE WNW ANAND NONPONININIPONPONYPY 2 2 Oo 


0 
0 
0 
0 
sit -SBTTL HISTORY 3; DETAILED 
44 : AUTHOR: CHARLES A. SAMUELSON, CREATION DATE: 12-AUG-1980 
9009 3 MODIFIED BY: 
0000 : v03-005 KPLO100 Peter Lieberwirth 10-Feb-1984 
0000 ; Change to use CONFREGL. 
0900 : V03-004 KDM0065 Kathleen D. Morse Aug=19 
44 : Replace PRS$_TODR with cpurspecitic art P 788 TODR. 
0900 : v03-003 ROW0161 Ralph 0. Weber getty =D 
0 : Make RASSOUS Adapter power failure r saareo. INT” 
4 : a. Changing stack expansion in EXESRH780_INT dy £7%3> to 
00 : 2. changing MBA not yer powered up path in ADAPTER_ISR to not 
0 : non-existant longwords from the stac 
6 3 3. ofrect. R4 argument in MBASINITIAL call to be adapter CSR 
: address 
: 4. Correct SCB rebuild after power restoration so that 
000 ; single interrupt service routine address in the ADP 
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sAateg tameens rom Tran p-speats S608 WNC. est RS 


pieced.in all four SCB locations associated w 


V03-002 KTA3018 erbey T. Altmann 30-Oct-19 
Remove INISMPMADP® to Snother module. 
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ADPERR780 - 1/0 ADAPTER ERROR HANDLERS FOR N80 16-SEP-1984 00:45: AX/VMS Ba 0 V Page 
706-000 HISTORY ; DETAILED mets 08:39 SYSLOA.S CTR DPERR SSO. MAR; 1 . 3) 
2 ; LOCALLY DEFINED SYMBOLS 
00000003 § UBALOGMAX = 3 ;MAXIMUM NUMBER OF tt UBA ADAPTER 
? TERRORS TO LOG IN 1 
00000003 71 UBAMAXRETRY = 3 ;MAXIMUM TIMES TO TRY AND RE-INITIALIZE 
ye ;THE UBA AFTER POWER F 
00000006 75 UBAMAXTIM = 6 ;NUMBER OF 10MS CLOCK TICKS TO WAIT 
re ;FOR UBA STATUS BITS TO ASSERT 
000 6 3 INCLUDED SYMBOL DEFINITIONS 
§ 4 SADPDEF ;DEFINE ADAPTER CONTROL BLOCK SYMBOLS 
000 7 SDYNDEF ;DEFINE DYNAMIC BLOCK TYPES 
0000 80 SEMBDEF <MC,SB,SE> ;DEFINE EMB 4. 
4h 3 SMCHKDEF ;DEFINE RECOVERY BLOCK MASK BITS 
B06 ¢ SIDBDEF ; DEFINE INTERRUPT DISPATCH BLOCK SYMBOLS 
000 8 SMBADEF ; DEFINE MASSBUS ADAPTER a MBOLS 
0000 84 SMPMDEF ;DEFINE MULTI-PORT MEMORY 
0000 5 Pr Oko ; DEFINE proces SOR REGISTER NUMBERS 
8508 6 SPR780DEF DEFINE 11/780-SPECIFIC IPR NUMBERS 
000 7 SUBADEF ;DEFINE UNIBUS ADAPTOR SYMBOLS 
0000 8 SVADEF ;DEF IN PFN PITS 
0000 89 
0000 90 
444 91; LOCAL DATA STORAGE 
4 38 
000 93 ; LOCAL MACROS 
0000 94 
0000 95 -MACRO VECGEN ; Macro to generate ISR entry point 
0000 96 SSSTEMP=. 
0000 97 PusH L 1440 ; Replaced by ADP address for this NEXUS 
0000 98 BRB NECEND ; Join common code 
Bae 99 essrewe, ryt EMP 
000 100 SUME S$$STEMP EQ 8 ; Each entry must be 8 bytes long 
0000 101 at DM 
0000 196 
00000000 10 »PSECT WIONONPAGED,QUAD,RD,WRT 
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~SBTTL EXESUBAERR_INT = UBA ERROR INTERRUPT HANDLER 


rae 


;++ 
; EXESUBAERR_INT = UBA ADAPTOR ERROR INTERRUPT HANDLER 
FUNCTIONAL DESCRIPTION: 

PROCESS ALL INTERRUPTS FROM DW780, 11/780 UBA 


OOOOCCOCOCOCOO DP, 


UNIBUS VECTOR walk eae 
4 ADDRESS FOR THIS UB 


IPL 

PSL (COPY) 

PC (COPY) 

Mid # OF This ADAPTER 


] 5 
109 
108 
109 ; 
110 ; 
111; 
1 3 
8 Wz ; LOG AND TRY TO RECOVER. 
8 12 : INPUTS: 
009 113 3 R4 = apres OF UBA ADP 
8 118 ; RS =_UNIBUS VECTOR DISPATCH ADDRESS 
8088 BY ; R3- “RS” SAVED ON STACK+PC,PSL FROM INTERRUPT 
8090 121 ; OUTPUTS: 
0000 = ¢ 3 
0000 123 ;-- 
0000 124 
0000 125 
0000 126 -ENABL LSB 
0000 127 
0000 128 
0000 129 
7E 50 7D 444! 130 MOVQ RO,-(SP) ; SAVE RO,R1 ON STACK 
7E 54 7D -000 131 ova R4,-(SP) 3; SAVE ADP ADDRESS AND VECTOR ADDRESS 
0006 1 ¢ DSBINT ; LOCK OUT WORLD 
000C 1 RESTART_UBA: ; ENTER HERE ON POWER UP 
7E 24 AE 7D 000C 134 MOVQ <924>(SP) ,-(SP) ; MAKE SECOND COPY OF PC,PSL FOR LOGGER 
[5 Se 19 135 MOVL P,R3 3; Mark stack 
- fe | 5 1 136 SUBL #<?ed>,SP ; Make room for registers on stack 
O17A 16 137 BSBW READ_REGISTERS ; Read sgegter Be Regt stecs 
03 50 S 19 138 BLBS RO, 30$ ; UBA THER 
007E 31 IC 139 BRW NO_UBA > CANNOT ACCESS. UBAS TNRROR 
4 ee AT THIS POINT IN TIME THE STACK LOOKS AS FOLLOWS 
1F 128 PSL 
1F = 144 PC 
1F 145 R5 
1F 138 R4 
1F 8614 RS 
1F 193 R 
| me R 
1F 139 RO 
7 wae 
| § 
1F 1 
1F 86.154 
1F 86155 
1F 136 
| a 
Wweee 8 
oP ome 
1F 160 
1F = 161 


pele le le le lo lelel el elo oleloleleolejlejleolelelelejlejloqjlola) 


Sete Se Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Be Ge Ge Ge Ge 
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EXESUBAERR_INT:: 
| 


| 
ADPERR780 - 1/0 ADAPTER ERROR HANDLERS FOR £1 }8 80 16-SEP-1984 00:45: AX/VMS Macro V P 
v06=000 EXESUBAERR INT © UGA ERROR INTERRUPT HAN SeSEP@19B¢ Ous06:90 LeystOn. Sar cADbeRRobO.maR;1 2° 3) 
orf 163 ; SP ==>UBASL_CSR | 
JE 164 ; DISPATCH ON ERROR TYPE BITS IN UBA REGISTERS 
1F 165: THE ORDER OF LOOKING AT THE BITS AND THE ACTION TAKEN IS SHOWN 
1F 166 : ALL ERRORS ARE LOGGED 
1F 167: 1) ADAPTER POWER DOWN - UNMAP UBA AND WAIT FOR POWER UP 
OIF 168 : ¢) ADAPTER POWER UP = REMAP THE UNIBUS AND CONTIN UE 
6 1F 18 ; ) UNIBUS INIT ASSERTED = UNMAP THE UBA AND WAIT FOR POWER up 
O1F 170: 4) UNIBUS POWER DOWN = UNMAP UBA AND WAIT FOR UNIBUS POWER U 
OO1F 171: 5) UNIBUS POWER UP = REMAP UBA, INITIALIZE DRIVERS AND CONTINUE 
O1F 1% ; $) UBSTO = RESET UBA, INITIALIZE DRIVERS AND CONTINUE 
Oi 173: ) UBSSYNTO = CONTINUE = ONLY LOG 3 EVERY 15 MINUTES 
| oe eS 8) SBI ERRORS = CONTINUE = ONLY LOG 3 EVERY 15 MINUTES 
BF He sos 
6E 00860000 8F 3 O01" 153 " -BITL —- #<UBASM_CSR_PD! UBASM_CSR_UBIIP! UBASM_CSR_UBPDN>, (SP) | 
5D 12 006 128 BNEGQ § UBA_POWER_DOWN 
03 6E 10 eI $058 180 BBC #UBASV_CSR_UBIC, (SP) ,210$ ; BRANCH IF NO POWER UP 
0081 1 002C 181 200$: BRW UBA_POQER_OP ; “POW E 
F9 6E 16 €0 Boe 186 210$: BBS #UBASV_CSR_PU, (SP) ,200$ : BRANCH IF ADAPTER POWER UP 
03 08 AE 01 eI Mies ibe BBC #UBASV_SR_UBSTO,<2*4>(SP),220$ ; BRANCH IF TIME-OUT 
00A3 1 pee 13? BRW UBA_STO 
0A 08 AE 00 €0 0038 187 220$: BBS #UBASV_SR_SSYNC,<2*4>(SP) ,UBA_SSYNC ; BRANCH IF SLAVE SYNCH 
08 AE 000006F8 BF D3 9949 189 BITL Pousada, SR, CxTER!” 
0048 191 UBASM~SR—DPPE ! = 
0048 198 UBASM~SR~IVMR/- 
0048 19 UBASM”SR_MRPE ! ~ 
0048 194 UBASM~SR-RDS !- 
0048 195 UBASM”SR aRDTO>, <2%4>(SP) ; ALL THE OTHER RANDOM ERRORS 
3 33 Bee 136 BEQL UBA_NOLOG_R : BRANCH IF NONE OF THEM 
004A 198 UBA_SSYNC: ; DO_NOTHING HERE AND HOPE FOR THE BEST ** 
OO4A 199 UBA~ADAPTER_ERR: : JUST FOR THE RECORD * 
50 OC A4 3C 004A 201 MOVZL ADPSW_TR(R4) RO NUMBER 
0000*CF40 05 91 O04E 0¢ CPS #UBALOGHAX WAEXESAB “MEMERREROD © ; Log 3 of these error in 15 minutes 
O000'CF40 96 0038 Be INCB UTERESAB _MEMERRCRO) : Count another one. 
0088 Og UBA_RETURN: 
0154 30 0058 38 BSBW LOG_ADAPTER ; Log UBA error 
09 2 4 -BYTE EMBSK_UBA ; UBA errorlog type 
3 1 UBA_NOLOG_RET: 
53 SE 00 3 18 MOVL _— SP, R3 : GET POINTER TO ADAPTER REGISTERS 
$3 15 SPRICTINI B*40$,#MCHKSM_NEXM 
65 63 00 6 19 MOVL _ (R3) ,UBASL_CSR(RS) ; CLEA aR UBA ERRORS 
08 AS «608 AS” ODO 1 18 MOVL  <2%4>(R3),OBASL_SR(R5) : DITO 


ADPERR780 
7042000 
23 50 
SE 4 
54.8 
9 


1 
ROR wt FOR 11980 1 
UBA ERR 


OR INTERRUPT HAN 


fl ht Py xe 


RO,NO 
sean, SP 
ENBINT 
MOVQ (SP)+,R4 
JMP ac(r5)+ 


62:98 vite d Macro VO 


SYSLOA.SRCJA SADPERR ISO. MAR; 1 oe %) 


CANNOT ACCESS ADAPTER 
GET RID OF vite Pt ON STACK 


BACK TO DEVIC 
GET VECTOR DISPATCH ADDRESS IN R5 
OFF TO ISR 


we 


ADP! 
v04 


SPRICTINI 8°120$,#MCHKSM_NEXM 

MOVL § #UBASM_CR_INIT.UBASL_CR(R5) ; HARD INIT THE UBA 
; WAIT FOR 60 MS OR INIT COMPLET, WHICH EVER COMES FIRST 

MOVL ADPSL_CSR(R4),RO ADDRESS OF UBA 


: CSR 
BSBW WAIT TEST ; TEST BIT i te hs OUT 
gave UpASy CSR_UBIC : ST 


04 A5 01 00 


0 4 
0385 
52. 550 


; BIT POSITION 
PUT RETURN STATUS IN R2 


o-wso 


Coooo 
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v04-000 ADAPTER ERROR HANDLERS -SEP=1984 04:06: 08 SYSLOA. Bae oe OMERRSSO.MAR: 1 . (4) 
8 -SBTTL ADAPTER ERROR HANDLERS 
1 ADP_POWER_DOWN: ; UNIBUS ADAPTER POWER LOSS 
2 § UBA “POWER DOWN: ; UNIBUS (NOT ADAPTER) HAS LOST POWER 
; ¢ SPRICTINI B*55$,#MCHKSM_NEXM 
04 AS 04 D 8 91 § MOVL ayenen CR cgnr ie UBASL_ CR(RS) ALLOW ONLY a all INTERRUPTS 
65 00 oO 95 MCOML ,UBASL ) ; CLE EAR ALL UBA ERROR BITS 
08 AS «6000—CoOD 43 } MCOML ;UBASL— Fh ; DITO 
030 rt SPRICTEND 55$ 
6 9D 4¢ NO_UBA: 
0127 30 44 re BSBW UNMAP_UNIBUS ; REMAP UBA ADDRESS SPACE TO RABIT HOLE PAGE 
QOD rH VEC_RETURN: ; RETURN, NOT GOING THRU VECTOR 
010F 30 Bang 47 BSBW Eps ADAPTER ; Log UBA error 
09 OOA 48 -BYTE MBSK_UBA ; Log UBA error 
OOAS 249 VEC_NOLOG_RET: 
5E 24 CO OOA4 50 #<92%4>,SP ; CLEAR STACK OF LOG 
OOA7 251 UBA_PWR_RET: 
Q0OA7 26 ENBINT 3; RE-ENABLE INTERRRUPTS 
5E 08 CO QOAA 5 ADDL #<2%4>,SP ; CLEAR STACK OF VECTOR ADDRESS, ETC. 
OOAD 254 UBA_VEC_DSPAT: 
3F BA OQOAD 55 POPR #*M<RO,R1,R2,R3,R4,R5> ; RESTORE GENERAL REGISTERS 
02 Baa 2$ REI 3; AT LAST! 
0080 338 UBA_POWER_UP: ; UNIBUS HAS REGAINED IS STRENGTH 
pres 22 RESTORE_UBA: 
3FFE 8F BB 00B 361 PUSHR #*M<R1,R2,R3, apF ye R6,R7,R8,R9,R10,R11,AP,FP> ; Save regs destroyed 
0B 6¢ SPRICTINI B° 1008, #MCHKSM_NEXM 
5C OC AS 3C 26 MOVZWL ADPS$W TRiRGS AP : Initialize for this adapter only 
30 «=€3—6BB $e PUSHR #*M<R&,R5> ; Need ADP/CSR after INIT DEVICE 
00000000 ' GF 16 65 JSB G-EXESINIT DEVICE ; Initialize devices on this TR level 
14 BA $06 POPR #*M<R2 ; Restore registers for next routine 
00000000'GF 16 6 JSB (G*UBASINITIAL ; Re-enable interrupts/init registers 
268 SPRICTEND 100 
SFFE 8F BA $? POPR #*M<R1,R2,R3, sae R5,R6,R7, we R9,R10,R11,AP,FP> 
c4 50 —s«EB 0 BLBS RO, VECAR RETUR : We made it 
BF 11 4 BRB 0_U ; No Unibus Yet 
rs UBA_STO: ; UBA SACK TIMEOUT, BAD ERROR 
§ 
§ 
78 
79 
80 
: 
4 
5 
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yes a ADAPTER ERROR HANDLERS ie 3be 8? :06: 98 USYSLOA. SR CT OMERRIBO. MAR; 1 - a& 
oor ! SPRICTEND 1208 
03 5 8 OOF9 8 BLBS R2,130$ ; R2 1S SET, NO TIMEOUT 
ay + OOF 9 115$: BRW ADP_POWER_DOWN : ERROR,WHAT ELSE CAN WE DO? 
FA 50 €9 OOFF 90 130$: BLBC RO,T15$ ; NO UBA, TAKE IT AWAY FROM SYSTEM 
AC 11 0102 31 BRB RESTORE_UBA ; RESTORE THE UNIBUS 
0104 3 .DSABL LSB 
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=~ MBA ERROR INTERRUPT HAND 5=-SEP=1 4:06: SYSLOA.SRCJADPERK 
~SBTTL EXESRH780_INT = MBA ERROR INTERRUPT HANDLER 
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"+4 

; EXESRH780_INT = MBA ADAPTER ERROR INTERRUPT HANDLER 

; FUNCTIONAL DESCRIPTION: 

Process Adapter power down interrupt from MBA. Log error. 
Remap MBA adapter address space to black hole page Pass + 
SCB vectors for this NEXUS to point to power up SR in this 
module. REI and wait ior power up interrupt. 


: INPUTS: 


R3 - Address of ID 

R4 = Address of MBA ADP 

OO(SP) - Ageress of IDB address 
; O4(SP) to 24(SP) - Saved R2 to R5 plus PC,PSL from interrupt 
; OUTPUTS: 


EXESRH780_INT:: 


DO MOVL R1, (SP) 
RO 


: 
0 oD 


Save R1, replace IDB address 


PUSHL ; Save RO 
DSBINT ; Raise to IPL 31 
RESTART_MBA: 
7E 1C AE 7D MOVQ <7#4>(SP) ,-(SP) ; Make re copy of PC,PSL for logger 
53 SE 00 MOVL SP,R3 ; Mark Sta 
ae | 4 3 SUBL #<7t>,SP ; Make room . registers on stack 
0077 30 BSBW = READ_REGISTERS : Read Adapter Registers 
18 50 =«E9 BLBC RO,NO_MBA ; Cannot access MBA registers 
The stack now looks as follows: 
PSL 
PC 
R5 
R4 
R3 
Re 
R1 
IPL 
Pst (copy? 


PC 
TR # of OY Nis adapter 
MB R 


Sete Se Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge 
mz 


MBASL_CR 
SP -->MBASL_CSR 
; Log MBA status 


tt BQO DODOOOSCODDDODSOOODOSOOOOOO 


SF FE Ee ee ee EO OPA ONE SES PPL LLLP PPP PLP OF 


=O OD NA NE WAID 0 OD NAME WIN 9 OO NAME WWI 9 OD NAU EWN 0 OD NAME WN OOONOUM 


PAAAA. AAA. A. AAA AAAAAA. AIAN AANA AAAAN ANIA AAA ANNAN AANA. AA.AAAAAIOPONONIND 
SVE BBB BBE EE WWW ANI NNN RIPUDININIPININIDN 2 OO SS MDOOOOOOOOCOOCOOOOO 
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vOe=000 


6E 
6E 


0090 


00800000 or 
00400000 8F 


5464 
ansaid 
4 


007: 
3 


010A 

SFFE 8F 

54 

5464 
etateeedl 


5C oc AG 
00000000 ' GF 
SFFE 8F 

AD 50 


5E 24 


3F 


co 

m 
—w O-Co7o 
-—-o OCo”ru 


oO mo —wo-CcOo Sy 
nr SO OF BPOOCOYU oO 


fale tele lelelelelelelelelelealelelolelelelolelelelolelelelelelelelelelelelelelelalelolol ola) 


DO 
x= 
ovo 


30 090900090909 SII AO MMIII UU WWIII nononononoronononn | 
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WOOO OO O00 00 09 09 09 09 09 09 09 09 SINNED PAA AAA AAO IIIT 
AEA (=O OONAU EWN 0 DOONAN EWA 0 OD NOUN EW OOOO EP 


AX/VMS Macr 
SYSLOA. 


H 1 
s fon ti/fao, 1g-sep-t9ge 09:45:08 macro, YO4=00 


RROR BOL ERS F 
; Call logger routine | 


P 1 
MBA ERROR a (3) 


BSBW 0G_ADAPTER 
BYTE EMBSK_MBA 


Dispatch on either Power up or Power down 
power down, remap MBA address to black hole page and change 
adapter SCB vectors to point into peer up ISR in this module. 
If power up, map MBA addresses back to normal system virtual and 
point SCB vectors into normal system ISR. 


; Error log type code 


BITL #MBASM CSR_PD, (SP) ; Check for power down first 
BNEQ MBA_POQER Bow 

BITL #MBASM CSR PU, (SP) ; Better be power up 

BNEQ MBA_POWER_OP 

BRB MBA_RETURN ; No status, just REI 


MBA_POWER_DOWN: 
NO_ABA: ~ 


SPRICTINI B*100$,#MCHKSM_NEXM 
PUSHL RG 


MOVL 
JSB 


ADPS$L_CSR(R4) ,R4 
G*MBASINITIAL 


POPL R4 
SPRICTEND 1008 
BSBW 


BRB 
MBA_POWER_UP: 
BSBw 


PUSHR # 
SPRICTINI 
PUSHL R4 


POPL 
MOVZWL 


JSB 
SPRICTEN 
POPR 


BLBC 
MBA_RETURN: 
ADD 
ENBINT 
POPR 


UNMAP_MASSBUS 
MBA_RETURN 


MAP_MASSBUS 
AMZR1R2,R3R4 RS 
B*100$, #MCHKSM_NEXM 


ADPSL_CSR(R4) ,R4 
GUMBASINITIAL 


ADP$W_TR(R4) AP 
G*EXESINIT_DEVICE 
D 100$ 


#*M<R1,R2,R3,R4,R5,R6,R7,RB,R 


RO,MBA. POWER. DOWN 
#<9%4>,SP 
#*M<RO,R1,R2,R3,R4,R5> 


; Restore 
R6,R7,R8B,R9,R10 


; Handle MBA power down interrupt 


Save ADP address. 
Get MBA CSR address. 
Start up MBA. 
Restore ADP address. 


Remap to black hole page 


; Handle MBA power up interrupt 
normal system mapping 


; Save ADP address. 

; Get MBA CSR address. 
; Start up MBA. 

; Restore ADP address. 


: Initialize for this adapter only 


R11,AP,FP> ; Save regs destroyed 


: Initialize devices on this TR Level 


9,R10,R11,AP,FP> 
(+) MBA et 

; Common interrupt return 

; Clear Logging stuff off stack 
; Re-enable interrupts 

; Restore GPR's 

; Return 


eef 
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i -SBTTL READ_REGISTERS = READ ADAPTER REGISTERS 
READ_REGISTERS = READ ADAPTER REGISTERS INTO BUFFER 


I, Tat 


Ww 
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; FUNCTIONAL DESCRIPTION: 


Called on adapter error entry to save TR number of adapter and 
six adapter registers in buffer. 


INPUTS: 


R3 - Address of buffer to read registers into 
R4 = ADP address for adapter 


; OUTPUTS: 


Adapter's TR # saved in buffer 

Six ee registers pushed onto buffer in reverse order 
R1,R3 destrcye 

RS <= Adpater CSR address 

RO - LBC if adapter could not be referenced 


READ_REGISTERS: 


a ee ee ee ce ee ee el ec ee ee ee el el el eel ee 
DOW YS SS OOOO ODOODODDDODODDOD000000000000000 
"999 D099 F OWI WNW NANA AA AAAI 
FP oP a ot at ot at of af af af ot ot at ot Nene eet m eee 
WUININIIRoPonononononononony 2 3 3 2 2 Ss BODO OO OOOOO 


ae me we ww ww lol al aleloleoleleleleleleleleleleleoleolealol a) 


55. 64 00 MOVL ADP$L_CSR(R4) ,R5 ; Fetch adapter CSR address 
73 =«6O0C AS 3C MOVZWL ADPS$W_TR(R4) ,-(R3) ; Save TR of this adapter for log 
51 5 00 MOVL #5,R1 ; Counter for 6 registers 
SPRICTINI B*20$,#MCHKSM_NEXM ; Protect from machine check 
73. 6541 ~=»0 108: MOVL (R5)CR1],-(R3) ; Place registers in buffer 
F9 51 FG SOBGEQ R1,10$ ; Loop thru all 6 
SPRICTEND 20$ ; End of protected code 
05 RSB 


>> 
vo 
=> 


pw fe len lw lala lolol alololelololelelelelelelelelaleleleolelolealelel ole a) 
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‘2 -SBTTL LOG_ADAPTER = ERROR LOG ADAPTER ERROR 

: LOG_ADAPTER = ERROR LOGGING FOR UBA AND MBA ADAPTER ERROR INTERRUPTS 
; FUNCTIONAL DESCRIPTION: 

; INTERFACE TO ERROR LOGGING ROUTINE IN MACHINE CHECK 
: INPUTS: 

: P) = Points to error log type code 

3 P)+1 = Return address 

3 lLongwords are logged, defined as follows: 

: 6 Adapter registers 

3 ge # of this adapter 

; PSL 

> OUTPUTS: 


Entry made in error log 
RO-R3 modified 


LOG_ADAPTER: 


PUSHR #*M<R4,R5> 


5 Save R4, R5 
MOVAL  <3*4>(§P),R5 
9#4>,R4 


Address of error log frame 


MOVL #<94d>, ; Length of error log frame 

MOVZBL @<2*4>(SP) ,R3 ; Error log type : 

BSBW MCHKSGL ‘ ; Call error oggin routine in MCHK780 
POPR #*M<R4,RS> ; Restore R4, R 

pect (SP) ; Bump Stack past type 
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«SBTTL UNMAP ADAPTER ADDRESSES, REPLACE SCB VECTOR 


p++ 
; UNMAP_UNIBUS = Remap UBA address space to black hole page 
; UNMAP_MASSBUS = Remap MBA address space to black hole page 


FUNCTIONAL DESCRIPTION: 


For each suppor tee aenpter modify SPTE's that map the adapter 
to point PFN to black hole page. Replace the ISR address of 
the four adapter SCB vectors and point to entry point in this 
module. This allows this routine to handle the power up 
interrupts. Remap to the black hole page allows all code which 
touches the adapter 1/0 address space to continue without 
machine checks. Note that any such code (drivers nop register 
initialization, etc.) will of course not do what it thought it 
was tt The result should be device timeout for any I/0 
request. 


INPUTS: 
R4 -_ADP address of the adapter 
IPL 31 


ADPERR780 - 1/0 
¥o4=000 UNMAP 


ovo 


3 
8) 


Be 


OUTPUTS: 
Adpater address space (and Unibus I/0 space for UBA) mapped to 
black hole page. 


Adapter SCB vectors replace to point to this module 
ALL general registers preserved. 


UNMAP _UNIBUS : 
PUSHR 


OO4F 8F BB US #*M<RO,R1,R2,R3,R6> ; Save GPR's used 
50 18 00 MOVL #24,R0 3; Number of SPTE's to modify 
07 11 BRB UNMAP 
UNMAP_MASSBUS: 
OO4F 8F BB PUSHR #*M<RO,R1,R2,R3,R6> 3; Save GPR's used 
50 08 00 MOVL #8,RO ; Number of SPTE's to modify 


+4 
; UNMAP = Common routine to unmap adapter address space and replace adpater 
: CB vector ISR addresses 


INPUTS: 


RO - Number of pages to remap to black hole page for this adapter 
R4 = Adapter ADP address 


There are interrupt service routine entry points in module ADAPTERR for 
ach of the 16 possible NEXUS on the system, When a NEXUS is unmapped, 
; its four SCB vectors are redirected to the interrupt service routine 

3; in this module. Thus, this module receives all interrupts from an 

3 unmapped adapter. 
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- PTER ER 4 
UNMA PTER ADDRESSES, REPLACE SCB VEC 5-=SEP=1 4:06: SYSLOA. Bae e OME RRTBO.MAR: 1 8) 
Each interrupt service routine entry point is of the form: 
PUSHL 1*#0 
BRB VECEND 


When an adapter is unmapped, its ADP address is stored in the immediate 
constant that is pushed on the stack. This location is cleared when 
ah as is mapped and is used as a flag to prevent double mapping or 
u ping. 


The interrupt service routines form an array with each entry being 

alt png 8 bytes long (a ena ty Thus the vectors are all long word 
ned and some assumptions can be made for igeeaing into the parrer. 

ndex is based on the TR number of the NEXUS. ex into the 

; array must be PIC. With this introduction, understanding the fol lowing 

code is left as an exercise for the student. 


DVPUPVIVIV IV IVIVSV SV SVSVSIUSUSV SUSU USES VSS USS USUI USSU = OD 
DD DAAEDP ADA AD Sn Be Be BEE EWI NII 
CNAME WN OOODNAUES WN OC ODNOUE WN OOONOUSWNO0Re »mM 
3 
v 


53 OC AS 3C MOVZWL ADPSW_TR(R4),R3 ; Get adapter TR number 
—- 2 fe «C MULL #2,R3,R2 : Quadword index (used “with indexed addressi 
56 O2C6'CF oF MOVAL W*ADP BASE. oR6 ; Get address of base of ISR table 
O66 D TSTL (R6)CR2] ; Test saved ADP address cell 
4 12 BNEQ 100$ : f my Rat already unnesped 
6642 54 00 MOVL R4, (R6)CR2) 3; Sav P address for power up 
51. 00000000'GF 00 MOVL G“MMGSA_SYSPARAM +<EXESGL’ SCBLEXESA SYSPARAM>,R1 ; SCB base address 
51 0100 C143 4 MOVAL “X100(RT)CR3I,R1 7 Base of NEXUS vectors for this TR 
56 OD DECL R6 3; Calculate ISR base +1 (vector) address 
61 6642 ODE MOVAL (R6)CR2],(R1) 3; Change ISR address for 4 vectors 
40 Al 61 00 MOVL (R1),64(R1) 
0080 ci 61 #00 MOVL Ri). 1eR tn)? 
00C0 g) 61 00 MOVL (R1),192(R1) 
2 64 00 MOVL ADP$L_CSR(R4) ,R2 ; Virtural address of adapter space 
00000000'GF 16 JSB G“MMGSSVAPTECHK : Laorees of SPTE that maps adapter 
51 Q0000000'GF 00 MOVL G* ex $GL_BLAKHOLE ,R1 ; PFN of black hole pa ge 
63 «15 99 51 FO 10$: INSV R1,#0,#VASS_VPN, (R3) 3 Insert new PFN 58, PTE 
5 4 CO ADDL #4; ; Point to next SPT 
F5 50 F5 SOBGTR RO, 10$ 3; Do for all 
INVALID : teenl tdete TB 
OO4F 8F BA 100$: ay #*M<RO,R1,R2,R3,R6> ; Restore GPR's 
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v04-000 MAP ADAPTER ADDRESS, RESTORE SCB VECTORS 5=-SEP-1984 04:06: SYSLOA.SRCJADPERR780.MAR; 1 (9) 
} 0 ae -SBTTL MAP ADAPTER ADDRESS, RESTORE SCB VECTORS 
1 ye ; MAP_UNIBUS = Map UBA adapter addresses, restore UBA SCB vectors 
! Y ; MAP_MASSBUS = Map MBA adapter addresses, restore MBA SCB vectors 
} o? 3; FUNCTIONAL DESCRIPTION: 
1 8 : Restore SCB vector address from ADP for the adapter. Restore 
1 4 3 SPTE contents that map adpater and I/0 address space. These 
1 79 ; routines essentially undo are restore everything done by 
! : UNMAP_ADAPTER. 
o : ¢ : INPUTS: 
0231 4; R4 - Adapter ADP address 
8 } 2 5 3 IPL 31 
| 5 ? 3; OUTPUTS: 
0231 288 : PFN field of SPTE's that map adapter and adapter 1/0 space are 
0 1 590 ; restored to point to the adapter. 
0231 23) 3 SCB vectors are pointed to the origonal system adapter ISR. 
$53) 895 7 
0231 594 MAP_UNIBUS: 
OF BB O H 595 PUSHR #*M<RO,R1,R2,R3> 3; Save GPR's 
5D 10 0233 596 $ MAP ; Common re-map routine — 
50 44 A4 DE 0235 597 MOVAL ADP$L_UBASCB(R4),RO ; Address of table containing ISR address 
61 80 D0 0239 598 MOVL (RO)+,(R 3; Restore 4 SCB vectors 
40 Al 80 00 3c.)0— «5599 MOVL (RO)+,64(R1) 
0080 ci 80 »DO ‘8 600 MOVL (RO)+,128(R1) 
00C0 C1. 60 DO 0245 601 MOVL  (RO),192(R1) 
52 54 A4 00 4A O06 MOVL ADP$L_UBASPTE(R4) ,R2 ; Saved SPTE value that maps adapter 
50 18 00 4E 60 MOVL #24,R0 ; UBA uses 24 SPTE's 
83 52 DO 0251 604 10$: MOVL  R2,(R3)+ : Replace each SPTE 
52 D6 0254 605 INCL ® 3; Point to next page 
50 11 D1 0256 O28 CMPL #17,R0 ; Switch from adapter to 1/0 space 
04 12 0259 $8 BNEQ 0$ : For Unibus 1/0 page 
52 58 A& DO 0258 608 MOVL ADP$L_UBASPTE+4(R4),R2 ; SPTE value that maps I/0 space 
EF 50 =F5 8 SF 609 20S: SOBGTR RO,108 3; ALL SPTE's 
28 SOCid? $¢ eid BRB MAP_RET : Join common code 
64 ol¢ MAP_MASSBUS: 
F 9 1 PUSHR #*M<RO,R1,R2,R3> 3; Save GPR's 
A $ 14 BSBB ” ; Common re-map routine 
50 14A4 OD 6 615 MOVL ADP$L_MBASCB(R4) ,RO : Get ISR routine address 
oa oe. oe 6C 918 MOVL RO, (RT) ; Restore 4 SCB vectors 
40 Al » ® of 61 MOVL RO,64(R1) 
80 C1 D ; 918 MOVL RO, (R1) 
C1 D 7 61 MOVL RO,192(R1) 
18 Ad OD 7D 6 9 MOVL § ADPSL_MBASPTE(R4).R2 =; Saved SPTE value that maps adapter 
50 D 1 MOVL #8, ; MBA uses 8 SPTE's 
83 D e §¢ ; 10$ MOVL R2,(R3)+ 3; Replace each SPTE 
d8 Y 6 INCL R :; Point to next page 
F8 F , ° : ee SOBGTR RO,10$ ; ALL SPTE's 
C 626 ” INVALID ; Invalidate TB 
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F 627 MAP_END: 
OF BA F 8 POPR #*M<RO,R1,R2,R3> ; Restore GPR's 
5 4 4 RSB 
9 631 ;++ 
8 2 ? § ; MAP = Common adapter re-map routines 
: 6 4 : INPUTS: 
3 6 : ; R4 = address of adapter ADP 
; 6 : ; OUTPUTS: 
8 9 640 ; R1 = Address of first SCB vector containing ISR address for this 
9 641 ; adapter 
029 otg : Re - Address r+ adapter CSR 
8 3 eh 3 - Address of the SPTE that maps the adapter CSR 
$34 645 : If Adapter already mapped, stack is cleared and return to caller's 
£34 278 : caller is made. 
6 4 648 : Refer to comments at start of paragraph ‘'UNMAP"’. 
Ses £29 aap, 
53 0C AG «3C «(029 63 . WOVZUL ADPS$W_TR(R4) .R3 ; Adapter NEXUS TR number 
52 53 02 CS 0296 65 LL3 = #2,R3,R2 ; Make quadword index 
51 O2C6'CF 43 8 9A 654 MOVAL W*ADP BASE RI 3; Address of vector table 
6142 D 9F 655 Stl (R1)CR2) ; Adapter already mapped? 
1A 13 Q2A2 656 BEQL 100$ :; Yes, exit 
6142 D& Q2A4 657 CLRL (R1)CR2) ; Flag adapter already mapped 
51  Q0000000'GF DO O2A7 658 MOVL G*EXESGL aCB R1 ; SCB base address 
51 0100 C143 DE O2AE 659 MOVAL “X100(RIJCR31,R1 : Base of NEXUS vectors for this TR 
dO 8 B4 660 MOVL ADP$L_CSR(R4) ,R2 3; Address of agegter r CSR 
00000000 ' GF ie 8 14 99) is G*MMGSSVAPTECHK ; Address of SPTE that maps adapter CSR 
8E 05 8 BF $6 100$: TSTL (SP)+ ; Clear callers return address from stack 
CD O11 C 664 BRB MAP_END ; Restore GPR's and return to caller's calle 
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a -SBTTL ADAPTER_ISR = Adapter power-up interrupt service 
; FUNCTIONAL DESCRIPTION: 


aprenn seo = ie 
v04-000 ADAPTE 


yD ad 
4 
— p> 


wou 
z= 


ISR Vector intry points for adapter interrupt service on adapter 
power up after reesog ing adapter 1/0 space to black hole page and 
replacing adapter SCB vector pointers. The adapter type is determined. 
Adapter specific power up code is dispatched to. 

INPUTS: 
NONE = directly vectored to from SCB 


OUTPUS: 


OOOOCCOCCOOOCOO 


C0098 NINN NSN SSAA AAA MUTINY BBB BB LO OOOOOOOOOOAOOAAOAOOOOOOOOODOO 


RO-R5 saved on stack 
R4 <= ADP address 
IPL Raised to 31 


»ALIGN LONG 


PARE AAAAEAAAAAAAA AAA A AA AAA AO AAO 
OOOO 00000090909 09 0909 0909 SIN SIN NINNIOOOO 


; This is a UBA interrupt 


MOVAL W*UBA_VEC_DSPAT,RS5 
MOV —-R4, = (SP) 


55 FO32 CF 3 IN CASE WE TAKE UBA_RETURN 
7E = 54 MAKE STACK COMMON 


TO IPL 31 
REMAP THE UNIBUS ADDRESS SPACE 


DSBINT 
BSBW MAP_UNIBUS 


FEA9 30 


DIVAS NNNNUMVOOS FOUN MOL EAL ATO PALE EEE BRP NOPNoNonononononononononofnononofmornofngd 


0 
000002C6 0 ADP_BASE=.+ ; Base of ADP address save table 
000002C4 0 ISR_BASE= ; Base of ISR entry point table 
0 -REPT 16 ; Repete once for each SCB NEXUS vector 
0 VECGEN ; Generate a vector entry point 
0 ENDR 
0 VECEND 
55 DD 3 PUSHL R5 ; Save RS 
55 04 AE DO O MOVL 4(SP),R5 3; Replace RS with ADP address 
8E DO 03 695 MOVL (SP)+, (SP) ; Move stack up one lLongword 
1F BB 03 696 PUSHR #*M<RO,R1,R2,R3,R4> : Save rest of GPR's 
54 55 00 Q3 697 MOVL R5,R4 3; R4& <= ADP address 
48 1 B3 O28 BEQL 126$ ; If no ADP address, we're in trouble 
03 00 ; Now retrieve adapter TR # and adapter type. Dispatch on adapter type to 
; proper adapter handling code. 
50 OC A4 3C 03 MOVZWL ADPS$W_TR(R4),RO ; Fetch adapter TR number 
53 00090000 GF D 6 MOVL GS KESGL _CONFREGL .R3 : Get address of CONFREG array 
5 6340 OD ; MOVL (R3)CROJ,R ; Get adapter type code. 
A 1 BEQL ; If type is 0, its bad news 
20 53 91 CMPB R3,#*X20 ; Is adapter an MBA? 
03 12 BNEQ 06 : No, test for UBA 
0096 3} BRW 5 ; Yes, go to MBA interrupt handler 
28 1 100$: CMPB R3,4°X28 ; Is adapter an UBA? 
gf 19 BLSS 1 3; No, inconsistent 
28 91 R3,4°X2B 
28 14 : BGTR 6 
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tj i 
apter power-up interrupt 5-SEP-1 


SPRICTINI B*200$,#MCHKSM_NEXM 
MOVL ADPSL_CSR(R4),RO 


59 ESYSLOR. SRESROPERABO.MAR; 1 


; GET ADAPTER CSR ADDRESS 


; NOTE: yt ‘3 they FIRST REFERENCE TO THE UNIBUS ADAPTER ADDRESS SPACE 


; ON THE W 
MOVL (RO) i 
MPB 


ay 


120$: BUG CHECK UNEXUBAINT,FATAL 


150$: 


; READ UBA_CSR 
; IS THIS THE SAME ADAPTER TYPE? 
; YES, CONTINUE 


; CRASH, CANNOT SWITCH ADAPTERS 


CLRL = R2 ASSUME NO POWER YET 
BITL  #<UBASM_CSR_UBIC! UBASM_ cér PU>, 
Ts TATS A POWER UP INTERRUPT? 
BEQL 165% : NO, ORE 
PUSHR #*M<RO,R1> : SAVE REGISTERS 
BSBW WAIT TEST : WALT FOR INIT COMPLETE, ADDRESS IN RO 
.BYTE UBA$Q_CSR_UBIC : iT 19.4 alt ON 
MOVL RO, : COPY RETURN CODE 
POPR #M<RO,R1> : RESTORE REGISTERS 
ae BLBS _R2,170$ : BRANCH IF OK 
sie MOVL _—R1, (RO) ; CLEAR UBA CSR ERROR BITS 
SPRICTEND 200$ ; END PROTECTED CODE 
BLBC RO, 3008 : UBA CANNOT BE ACCESSED 
BLBC 2, 300$ : UBA INIT COMPLETE NOT ASSERTED 
ion BRW RESTART_UBA : UBA IS UP AND KICKING 


BSBW UNMAP _UNIBUS 
BRW UBA_POR_RET 


; This is a MBA interrupt 


; WELL, WE*RE NOT THERE YET 
; REI AND WAIT FOR ANOTHER POWER UP 


5 
5 
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DSBINT 
BSBW § MAP_MASSBUS 


SPRICTINI B*600$,#MCHKSM_NEXM 
MOVL ADP$L_CSR(R4) ,RO 


MOVL =o MBASL _CSR(RO) RI 
, 68 


To IPL 31 


; Get adapter CSR address 


; This is the first reference to the Massbus Adapter address space 


; Read MBA CSR 
:; Is this he same eeapter type? 
: ot time to reboo 

ssume success 


#1,R2 
rT, ASR. CSR_PU,MBASL ~csncho)*: ; Power up? 
MOVL sRBASH_ CSR_PD,MBASL_ csrcRO)- No, clear other MBA CSR error bits 


:; Flag no power up yet 


Remap the Massbus address space 
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v04-000 ADAPTER_ISR = Adapter power-up interrupt 5-SEP-1984 04:06: SYSLOA.SRCJADPERR780.MAR; 1 (10) 
oe 4 7 9 SPRTCTEND 600$ 
66 50 E—9 04 3 : ¢ BLBC RO,700$ ; MBA cannot be accessed 
03 52 34 0408 7 BLBC R2,700$ ; MBA power up not asserted 
Foov. 31 0408 t Sony RESTART_MBA : MBA is up and kicking 
F DBF 30 Wh 7 8 SBW UNMAP _MASSBUS ; Not there yet 
Reha 4 ENBINT ; Enable interrupts 
FC96— O31 gett oes Rw UBA_VEC_DSPAT ; REI and wait for another interrupt 


— 
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v04-000 WAIT_TEST = WAIT FOR BIT OR TIMEOUT -SEP=1 1382 4:06: 98 SYSLOA.S Cree RR SSO. MAR; 1 ies (9) v0é 
iif A ns .SBTTL WAIT_TEST = WAIT FOR BIT OR TIMEOUT 
ale 798 : WAIT_TEST = TEST FOR BIT SET OR WAIT FOR 60 MS, WHICHEVER COMES FIRST 
410 199 t FUNCTIONAL DESCRIPTION: 
O417 £38 : WAIT FOR SPECIFIED BIT TO BE SET IN SPECIFIED REGISTER 
417 798 : WAIT FOR MAXIMUM SIX 10MS TODR CLOCK TICKS (50-60 MS) 
0417 199 : RETURN SUCCESS IF BIT SET, FAILURE IF BIT DID NOT SET IN 60 MS 
aif 01 : INPUTS: 
417 8 : RO = ADDRESS OF LOCATION THAT CONTAINS BIT TO TEST 
baie Be 3 (SP) = BIT NUMBER TO TEST 
0417 806 : OUTPUTS: 
0417 808 : RO = 1 ==> BIT SET IN TIME 
0417 809 : RO - 0 ==> BIT DID NOT SET WITHIN 60 MS 
0417 810 : R1,R2,R3 DESTROYED, OTHER REGISTERS PRESERVED 
0417 812° 
0417 B18 WAIT_TEST: 
52 00 BE 9A 0417 B14 MOVZBL a(SP),R2 ; GET BIT NUMBER TO TEST 
6— D6 041B 815 INCL (SP) : BUMP RETURN PAST PARAMATER 
51 18 DB 041D 816 MFPR  #PR780$_TODR,R1 : GET CURRENT TIME IN 10 MS TICKS 
53 60) «Os 9 817 10$ MOVL (RO),R : READ REGISTER 
0€ 53 52 £0 04 818 BBS R2 age + BRANCH IF BIT SET 
53 1B «ODBC«0427~—s 819 MFPR #PR7B 68 TODR. R3 : GET NEW TIME 
5351 C2 «042A B20 SUBL RI ig : GET ELAPSED TIME 
53 06) SD1s042D~— B21 CMPL $$ #UBAMAXTIM,R3 t HAVE 6 TICKS GONE BY? 
FE 1A 0430 82¢ BGTRU 10$ ; NO KEEP LOOKING 
50 D4 0432 B23 CLRL RO : Yes, RETURN FALSE. 
50 01 DO 0435 825 208:  MOVL  #1,RO0 ; BIT BECAME SET, RETURN .TRUE. 
05 0438 826 RSB 
0439 827 
0439 828 END 


a 
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Symbol table ety 0 :a559 YOYSLOA. SRETADYERR SSO. MARS 1 . dp 
SSSTEMP = 99 UBASM_CSR_UBIIP = 4 
DPSL_CSR = UBASM_CSR-UBPDN = 
SL-MBASCB = 000 4 UBASM_SR_CXTER = 
Seat -UsASee = Hop9osee Ueaan- ic bere = 1009993 
ADPSL_UBASPTE = 6 54 UBASM-SR-IVMR = 1 
ADPSW-TR = 0000000 UBASM_SR_MRPE 2 44 3 
ADP_BASE = 000002C6 R 0 UBASM_SR_RDS 2 3 0 
ADP~ POWER _DOWN 0000085 R 0 UBASM_SR-RDTO = 8 0400 
EReEE haR Goooean; ™ "* —UBARYESR- Bic = $8890015 
$K-UBA = 00000009 UBA$V_SR_SSYNC FY 09 69 
EXESAB_MEMERR teekeere X 0 UBASV"SR-UBSTO = 000 
EXESA_SYSPARAM teeeeeee YX UBALOGMAR = 8 $ 3 
EE SCE PONE RES re UOARARTIN’™ = 90000008 
XESGL~ teeeeeee =X § UBA_ADAPTER_ERR §00900s% R 08 
EXESINTT_DEVICE teeeeeee XxX 0 UBA_NOLOG_R ete ee R 2 
EXESMCHK PRTCT eeeneeee § Os UBA_POWER_DOWN 00000085 R 02 
EXFS$RH780_INT 00000104 RG 0 UBA_POWER-U 00000080 R 02 
ae Sooo0er% ROS TeA RE ORG Soo00088 RS «OD 
1 acho 0 rn Sa ES 
MAP_END 0000028F R 8s UBA_VEC_DSPAT QOOQOQOOAD R 02 
MAP_MASSBUS 00000264 R 8s UNMAP 000001D7 R 02 
MAP_RET 0000028C R 0 UNMAP_MASSBUS 000001D0 R 02 
P_UNI 00000231 R 02 UNMAP_UNIBUS 000001C7 R 02 
a at dooo0000 Veteay = f000082 R02 
NOASH-CER-PD = $0200000 VEERETORRY $00000A0 ROO 
A_POWER~ DOWN Mitts ki R 02 WAIT_TEST 00000417 R 02 
MBA_POWER UP 00000157 R 02 
MBA_RETURN 0000018A R 8s 
MCHRSGL_LOG teeeeeee xX 0 
MCHKSM_REXM = 00000004 
MMGSA_SYSPARAM eeereeee XxX 02 
MMGSSUAPTECHK eeeenere = X (02 
NO_MBA 00000137 R 02 
UBA BOO fOTS R 02 
RS_IPL = 00000 iF 
PR7. ont R : 990000) 
READ_REGISTERS $6004 98 R 02 
RESTART _ 0000010F R 08 
RESTART_UBA 0000 0c R 0 
RESTORE _UBA 00000080 R Bs 
UBASINITIAL teterere =X 
UBASL_CR = 00000004 
UBASL_CSR = si 4 | 
UBASL_S = 00 
UBASM_CR_CNFIE = 0004 
UBASM_CR- INIT = 1 
UBASM_CSR_ = | 
UBASM_CSR~PU = 004 
UBASM_CSR-UBIC = 0001 | 
| 
j 
| 
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SYSLOA.SRCJ ADP PeRR?BO. MAR; 1 row hi 


go anamreeesees esomeed 


! ;_Psect synopsis 3 


PSECT name A 


a 


Attributes 


PSECT No. 


location 


» ABS . 00000000 < 8-3 Q¢ Q.) NOPIC USR CON ABS LCL ao § NOEXE NORD age NOVEC BYTE 
S$ 444448 44 ( -) Q1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
WIONONPAGED 00000439 ( 1081.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD URT NOVEC QUAD 


¢ eee n eset ecoemocese eesmtooea $ 


! Performance indicators e 


$oeeseecenceeeeenecesce 


Phase Page faults CPU Time Elapsed Time 
Initialization 35 0800: 88 «0? 00:00:01.38 
Command processing 129 00:00:00.34 00:00:01.88 
Pass 293 00:00:06.54 00:00:29.46 
Symbol table sort 0 00:00:00.81 ee ET 
Pass 2 154 00:00:01.82 00:00:08.6 

Symbol table output 11 00:00:00.06 00:00:00.07 
Psect synopsis output 2 00:00:00.01 ee Sea SES 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 626 00:00:09.65 00:00:44.90 


The yorkine set Limit was 1650 pages. 
563535 bytes (111 pages) of virtual memory were used to purer the intermediate cod 
There were 50 pages of symbol table space allocated to hold 819 non-local and 33 forel symbols. 
28 source Lines were read in Pass 1, producing 16 object records in Pass 2. 
1 pages of virtual memory were used to define 30 macros. 


Gaowecesecoeseceoesoocceoses 


Macro library name 


“$255$DUA 8:CSYS.OBJJLIB.MLB;1 20 
“$255$DUA28: CSYSLIBJSTARLET.MLB;2 6 
TOTALS (all Libraries) 26 


939 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:ADPERR780/0BJ=0BJ$:ADPERR780 MSRC$:ADPERR780/UPDATE=(ENH$: ADPERR780) +EXECMLS$/LIB 
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